home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Yerk 3.6.8 / System source / Imports < prev    next >
Encoding:
Text File  |  1994-08-05  |  2.2 KB  |  67 lines  |  [TEXT/YERK]
  1. \ imports for Yerk system modules
  2. \  1/12/84  cbd Seperated from Mod file
  3. \ 12/20/85  cdn Added Sort & Assembler
  4. \  6/23/86  cdn Added de'
  5. \  8/21/86  cdn Added Alert" & fcall
  6. \  6/01/90    rfl    added global/gtool and .sys/env
  7. \  9/26/90    rfl    added more imports to env
  8. \ 12/15/90    rfl    moved global to toolmod
  9. \  2/02/91    rfl    added envrec to env module
  10. \  6/11/91    rfl    added konstant module
  11. \ 10/26/91    rfl    added class hierarchy to util
  12. \  5/01/93  rfl removed mload and added outMod
  13. \  5/17/93    rfl    removed string call from clean1. Yerk.rsrc no longer needed.
  14. \ 12/25/93    rfl    added 'need' to docmod
  15. \  8/04/94    rfl    added .vects .vals in Util
  16.  
  17. FROM aboutMod    IMPORT{ About }
  18. FROM alertMod    IMPORT{ (al") alert! }
  19. FROM deMod         IMPORT{ (de) de' }        48 value deflgs
  20. FROM examMod    IMPORT{ Exam }
  21. FROM grepMod    IMPORT{ (grep) Grep }    4 value grflgs
  22. FROM iMod        IMPORT{ saveNuc Install }
  23. FROM indMod        IMPORT{ doInDlg doGrDlg doDeDlg }
  24. FROM logMod        IMPORT{ +file -file tofile }
  25. FROM printMod    IMPORT{ +print -print pinit pemit ptype pCR np }
  26. FROM qpMod        IMPORT{ qPrint }
  27. FROM sortMod    IMPORT{ sort }
  28. FROM Tool        IMPORT{ ASMcall fcall call global } 3 immediates
  29. FROM Util        IMPORT{ Dump .w Words objList .classes pat hc' hier .vects .vals }
  30. FROM env        IMPORT{ .sys hasColor hasFPU appleTalkOn getEnv }
  31. FROM konstantMod IMPORT{ konstant } immediate
  32. FROM docMod        IMPORT{ see marks srcname fm rl /// mforget findfmark need }
  33.  
  34. FROM asmMod        IMPORT{ Asm endAsm :Code :mCode } Immediate
  35.  
  36. \ ( RC type -- ) frontender so module is not loaded if not needed
  37. : (al") smudge
  38.     over IF R (al") ELSE 2drop THEN
  39.     R c@ 1+ align R> + >R ;
  40.  
  41. \ ( RC type : str" -- )  Compile conditional alert box
  42. : Alert"
  43.     ?comp Compile (al") word" c@ 1+ Align allot
  44. ; Immediate
  45.  
  46. 4 X-Array Aact
  47. 'c abort 'c null 'c null 'c null put: Aact
  48.  
  49. \ Execute trap at IP on Return stack
  50. : (TRAP)    R> dup 2+ >R w@ Trap ;
  51.  
  52. \ Execute in line trap sequence: Axxx next,
  53. Create [trap]
  54.     $ 224c w,        \ move.l  a4,a1
  55.     $ d9fc w, 12 ,    \ add.l   #12,a4
  56.     $ 4ed1 w,        \ jmp     (a1)
  57.  
  58. :F dmp dump ;F    \ patch forward reference from Object
  59.  
  60. 'code Util -> modCode
  61.  
  62. 'c release -> growZone
  63.  
  64. \ additional cleanup for aborts
  65. : clean1   cleanup +curs ." Token=" ( type# 171 ( Token= ) here .name cr ;
  66. 'c clean1 -> abortVec
  67.